home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / comm / fido / wpl_intro.lzh / rexx / wsched.rexx < prev   
OS/2 REXX Batch file  |  1993-01-28  |  592b  |  37 lines
  1. /*
  2.  *  Basic WPL Fidonet/UUCP scheduler
  3.  *
  4.  */
  5.  
  6. Options RESULTS
  7. Options failat 99999
  8. address rexx
  9.  
  10. if (~openport('wsched')) then do
  11.    say 'not unique' 
  12.    exit 1
  13. end
  14.  
  15. setclip('wsched','go')
  16.  
  17. say "WSched Starting"
  18.  
  19. do while (Getclip('wsched') == 'go')
  20.  
  21.    say getclip('wshed')
  22.  
  23.    say 'calling uupoll'
  24.  
  25.    call uupoll('hasmail') 
  26.  
  27.    say 'calling fidopoll'
  28.    call fidopoll()
  29.    adelay= Getclip('wsched-quantum')
  30.    if ( words(adelay) == 1) then do
  31.          say 'doing delay of 'adelay' seconds'
  32.          call delay (50*adelay)  /* delay for 'adelay' seconds */
  33.    end
  34. end
  35.  
  36. say "WSched Exit"
  37.